Release 10.1A: OpenEdge Development:
ADM and SmartObjects

Custom class files

The container class has the following custom class files, located in the %DLC%\src\adm2\custom (Windows) or $DLC/src/adm2/custom (UNIX) directory:

The containrcustom.i custom primary include file follows:

containrcustom.i 
&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v9r12 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include  
/*------------------------------------------------------------------------ 
    File        : containrcustom.i 
    Purpose     : References the start of the custom super procedure. 
                  Allows properties initialization. 
     
    Syntax      : {src/adm2/custom/containrcustom.i} 
     
    Description : 
     
    Created     : 06/03/1999 
    Notes       : Referenced in {src/adm2/containr.i} 
  ----------------------------------------------------------------------*/ 
/*          This .W file was created with the Progress AppBuilder.      */ 
/*----------------------------------------------------------------------*/ 
/* ***************************  Definitions  ************************** */ 
/* _UIB-CODE-BLOCK-END */ 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */ 
/* _UIB-PREPROCESSOR-BLOCK-END */ 
&ANALYZE-RESUME 
/* *********************** Procedure Settings ************************ */ 
&ANALYZE-SUSPEND _PROCEDURE-SETTINGS 
/* Settings for THIS-PROCEDURE 
   Type: Include 
   Allow:  
   Frames: 0 
   Add Fields to: Neither 
   Other Settings: INCLUDE-ONLY 
 */&ANALYZE-RESUME _END-PROCEDURE-SETTINGS 
/* *************************  Create Window  ************************** */ 
&ANALYZE-SUSPEND _CREATE-WINDOW 
/* DESIGN Window definition (used by the UIB)  
  CREATE WINDOW Include ASSIGN 
         HEIGHT             = 15 
         WIDTH              = 60. 
/* END WINDOW DEFINITION */ 
*/ 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 
/* ***************************  Main Block  *************************** */ 
/* Starts here the custom super procedure  
   Uncomment to run it */ 
/*RUN start-super-proc ("adm2/custom/containrcustom.p":U).*/ 
/* _UIB-CODE-BLOCK-END */ 
&ANALYZE-RESUME

The cntnpropcustom.i custom property file follows:

cntnpropcustom.i 
&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Include  
/*------------------------------------------------------------------------- 
    File        : cntnpropcustom.i 
    Purpose     : Defines basic properties. 
    Syntax      : {src/adm2/custom/cntnpropcustom.i} 
     
    Description : 
     
    Modified    : 06/03/1999 
    Notes       : Referenced in {src/adm2/cntnprop.i}     
  ------------------------------------------------------------------------*/ 
/*          This .W file was created with the Progress UIB.             */ 
/*----------------------------------------------------------------------*/ 
/* ***************************  Definitions  ************************** */ 
/* _UIB-CODE-BLOCK-END */ 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 
/* ********************  Preprocessor Definitions  ******************** */ 
/* _UIB-PREPROCESSOR-BLOCK-END */ 
&ANALYZE-RESUME 
/* *********************** Procedure Settings ************************ */ 
&ANALYZE-SUSPEND _PROCEDURE-SETTINGS 
/* Settings for THIS-PROCEDURE 
   Type: Include 
   Allow:  
   Frames: 0 
   Add Fields to: Neither 
   Other Settings: INCLUDE-ONLY 
 */ 
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS 

/* ********************  Preprocessor Definitions  ******************** */ 
/* _UIB-PREPROCESSOR-BLOCK-END */ 
&ANALYZE-RESUME 
/* *********************** Procedure Settings ************************ */ 
&ANALYZE-SUSPEND _PROCEDURE-SETTINGS 
/* Settings for THIS-PROCEDURE 
   Type: Include 
   Allow:  
   Frames: 0 
   Add Fields to: Neither 
   Other Settings: INCLUDE-ONLY 
 */&ANALYZE-RESUME _END-PROCEDURE-SETTINGS 
/* *************************  Create Window  ************************** */ 
&ANALYZE-SUSPEND _CREATE-WINDOW 
/* DESIGN Window definition (used by the UIB)  
  CREATE WINDOW Include ASSIGN 
         HEIGHT             = 15 
         WIDTH              = 60. 
/* END WINDOW DEFINITION */ 
*/ 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Include 
/* ***************************  Main Block  *************************** */ 
/* Starts here the custom super procedure  
   Uncomment to run it */ 
/*RUN start-super-proc ("adm2/custom/containrcustom.p":U).*/ 
/* _UIB-CODE-BLOCK-END */ 
&ANALYZE-RESUME

The containrcustom.p custom super procedure file follows:

containrcustom.p 
&ANALYZE-SUSPEND _VERSION-NUMBER AB_v9r12 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure  
/*------------------------------------------------------------------------- 
    File        : containrcustom.p 
    Purpose     : Super procedure to extend containr class. 
     
    Syntax      : containrcustom.p 
     
    Modified    : 06/03/1999 
  ------------------------------------------------------------------------*/ 
/*          This .W file was created with the Progress UIB.             */ 
/*----------------------------------------------------------------------*/ 
/* ***************************  Definitions  ************************** */ 
&SCOPED-DEFINE ADMSuper containrcustom.p 
/* _UIB-CODE-BLOCK-END */ 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 
/* ********************  Preprocessor Definitions  ******************** */ 
&Scoped-define PROCEDURE-TYPE Procedure 
&Scoped-define DB-AWARE no 
/* _UIB-PREPROCESSOR-BLOCK-END */ 
&ANALYZE-RESUME 
/* *********************** Procedure Settings ************************ */ 
&ANALYZE-SUSPEND _PROCEDURE-SETTINGS 
/* Settings for THIS-PROCEDURE 
   Type: Procedure 
   Allow:  
   Frames: 0 
   Add Fields to: Neither 

 Other Settings: CODE-ONLY COMPILE 
 */ 
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS 
/* *************************  Create Window  ************************** */ 
&ANALYZE-SUSPEND _CREATE-WINDOW 
/* DESIGN Window definition (used by the UIB)  
  CREATE WINDOW Procedure ASSIGN 
         HEIGHT             = 15 
         WIDTH              = 60. 
/* END WINDOW DEFINITION */ 
*/ 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Procedure 
/* ************************* Included-Libraries *********************** */ 
{src/adm2/cntnprop.i} 
/* _UIB-CODE-BLOCK-END */ 
&ANALYZE-RESUME 
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure 
/* ***************************  Main Block  *************************** */ 
/* _UIB-CODE-BLOCK-END */ 
&ANALYZE-RESUME

The cntnprtocustom.i custom prototype file follows:

cntnprtocustom.i 
/* 
 * Prototype include file: src/adm2/custom/cntnprtocustom.i 
 * Created from procedure: src/adm2/custom/containrcustom.p at 20:11:24 on     
06/03/1999 
 * by the PROGRESS PRO*Tools Prototype Include File Generator 
 */

The containrexclcustom.i custom exclude definition file follows:

containrexclcustom.i 
/*----------------------------------------------------------------------- 
    File        : containrexclcustom.i 
    Purpose     : Defines EXCLUDE-xxx preprocessor variables to exclude 
                  functions or internal procedures in the super procedure 
                  where it is referenced. 
    Syntax      : {src/adm2/custom/containrexclcustom.i} 
     
    Modified    : 06/03/1999 
     
    Notes       : Referenced in src/adm2/containr.p 
  ----------------------------------------------------------------------*/

The containrdefscustom.i custom instance definition file follows:

containrdefscustom.i 
/*----------------------------------------------------------------------- 
    File        : containrdefscustom.i 
    Purpose     : Entry point to define: 
                    New definitions 
                    {&xcInstanceProperties} 
                    {&ADM-PROPERTY-DLG} 
    Syntax      : {src/adm2/custom/containrdefscustom.i} 
     
    Modified    : 06/03/1999 
     
    Notes       : Referenced in {src/adm2/cntnprop.i} 
  ----------------------------------------------------------------------*/

Copyright © 2005 Progress Software Corporation
 www.progress.com
Voice: (781) 280-4000
Fax: (781) 280-4095